home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MSD-DU21.ARC / TXT->BAS (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  369 b   |  17 lines
  1. 60000 PRINT "FILENAME ? ":INPUTF$
  2. 60010 OPEN6,8,6,"0:"+F$+",S,R"
  3. 60015 Z$=CHR$(0):J=4096
  4. 60020 GET#6,A$:EF=ST:IFEF<>0THEN60100
  5. 60025 IFA$=""THEN60020
  6. 60030 POKEJ,ASC(A$+Z$)
  7. 60036 J=J+1:GOTO 60020
  8. 60100 CLOSE6:PRINT " POKED!":J=4096
  9. 60115 HO$=CHR$(19):CL$=CHR$(147):DO$=CHR$(17)
  10. 60119 PRINT CL$+DO$+DO$
  11. 60120 A=PEEK(J)
  12. 60125 IFA=.THENJ=J+1:GOTO60120
  13. 60130 PRINTCHR$(AAND127);:J=J+1
  14. 60133 IF A=13THENGOTO60140
  15. 60136 GOTO 60120
  16. 60140 PRINT "J="J":GOTO 60115"+HO$:POKE198,2:POKE631,13:POKE632,13
  17.